将Excel里多个工作表拆分成单独的Excel

1.右键任意工作表—“查看代码”
2.窗口输入代码

Private Sub 分拆工作表()
    Dim sht As Worksheet
    Dim MyBook As Workbook
    Set MyBook = ActiveWorkbook
    For Each sht In MyBook.Sheets
        sht.Copy
        ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlOpenXMLWorkbook
        ActiveWorkbook.Close
 Next
 MsgBox "文件已经被分拆完毕!"

End Sub

3.已拆分了的工作表存于被拆分的excel在的目录下